home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d6
/
pst09a.arc
/
UPDATE.ASP
< prev
next >
Wrap
Text File
|
1991-05-19
|
2KB
|
92 lines
;*************************************************************************
;* UPDATE.ASP 1991 RazorLogic Systems *
;* *
;* A script file for weekly downloads of selected files from DJNS *
;* *
;*************************************************************************
STRING THE_FILE
proc main
CLEAR
LOCATE 0 0
BOX 0 0 4 25 14
ATSAY 2 2 14 "Weekly Update......"
ATSAY 8 10 5 "ENTER LOG FILE NAME (e.g. April27.dmp) : "
ATGET 8 52 15 12 THE_FILE
LOCATE 10 0
LOG OPEN THE_FILE
PAUSE 1
TRANSMIT "//DJA^M"
WAITFOR "^^" 10
TRANSMIT "IND P1^M"
WAITFOR "^^" 10
TRANSMIT "TRN P1^M"
WAITFOR "^^" 10
PAUSE 1
TRANSMIT ";1AMR P1^M" ;Use the semicolon only the first time for //HQ
WAITFOR "^^" 10
TRANSMIT "1ARC P1^M"
WAITFOR "^^" 10
TRANSMIT "1BA P1^M"
WAITFOR "^^" 10
TRANSMIT "7BBRC P1^M"
WAITFOR "^^" 10
TRANSMIT "1BS P1^M"
WAITFOR "^^" 10
TRANSMIT "1C P1^M"
WAITFOR "^^" 10
TRANSMIT "1CAT P1^M"
WAITFOR "^^" 10
TRANSMIT "1CMB P1^M"
WAITFOR "^^" 10
TRANSMIT "1GE P1^M"
WAITFOR "^^" 10
TRANSMIT "1HXL P1^M"
WAITFOR "^^" 10
TRANSMIT "1IBM P1^M"
WAITFOR "^^" 10
TRANSMIT "1ICN P1^M"
WAITFOR "^^" 10
TRANSMIT "7INTC P1^M"
WAITFOR "^^" 10
TRANSMIT "1LSI P1^M"
WAITFOR "^^" 10
TRANSMIT "7MCON P1^M"
WAITFOR "^^" 10
TRANSMIT "1OCF P1^M"
WAITFOR "^^" 10
TRANSMIT "7PTEC P1^M"
WAITFOR "^^" 10
TRANSMIT "7PYRD P1^M"
WAITFOR "^^" 10
TRANSMIT "1SE P1^M"
WAITFOR "^^" 10
TRANSMIT "7SGAT P1^M"
WAITFOR "^^" 10
TRANSMIT "1SGI P1^M"
WAITFOR "^^" 10
TRANSMIT "7SUNW P1^M"
WAITFOR "^^" 10
TRANSMIT "1T P1^M"
WAITFOR "^^" 10
TRANSMIT "1TAN P1^M"
WAITFOR "^^" 10
TRANSMIT "1UH P1^M"
WAITFOR "^^" 10
TRANSMIT "1VAR P1^M"
WAITFOR "^^" 10
TRANSMIT "1ZE P1^M"
WAITFOR "^^" 10
TRANSMIT "7ZLOG P1^M"
WAITFOR "^^" 10
TRANSMIT "DISC^M"
LOG CLOSE
endproc